COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αβ0αβxjf 8↔ preserves tabs in justifying paragraphs
C00010 ENDMK
C⊗;
αβ0αβxjf 8⊗↔⊗; preserves tabs in justifying paragraphs

αXDEFINE XS⊗↔⊗; send file named on current line to xgp
αcαeαixs αs]α αk⊗↔αi⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓

αXDEFINE dover⊗↔⊗; send file named on current line to dover
αcαeαidover αs]α αk⊗↔αi⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓

αXDEFINE ≡⊗↔⊗; enter pointed file in readwrite mode
αxpo⊗↔αxreadw⊗↔αβ⊗↓

αXDEFINE %⊗↔⊗; send current line to LISP
α⊗↔α=αβ⊗↓

αXDEFINE ∩⊗↔⊗; take line back to file of files
αcαh⊗↔αeα↑⊗=⊗=αdαβ⊗↓

αXDEFINE MEM⊗↔⊗; standard start of memos
αβ⊗↔.require "memo.pub[let,jmc]" source;⊗↔.cb αβ⊗↓

αXDEFINE AIL⊗↔⊗; standard start of AI letter
αβ⊗↔.require "let.pub[let,jmc]" source;⊗↔
∂AIL αβ⊗↓

αXDEFINE CSL⊗↔⊗; standard start of CS letter
αβ⊗↔.require "let.pub[let,jmc]" source;⊗↔
∂CSL αβ⊗↓

αXDEFINE JF⊗↔⊗; justifies a paragraph
αβ!αβaαxjf 8⊗↔αβeαβ!⊗↔αβ⊗↓

αxdefine msg⊗↔⊗; switching to the message file
α⊗↔⊗↔αεmsg.msg[1,jmc]/∞p⊗↔αβ⊗↓

αxdefine jnk⊗↔⊗; switching to the junk message file
α⊗↔⊗↔αεmsg.msg[jnk,jmc]/∞p⊗↔αβ⊗↓

αxdefine fil⊗↔⊗; switching to the file of files
α⊗↔⊗↔αεfiles[let,jmc]/∞p⊗↔αβ⊗↓

αxdefine fil1⊗↔⊗; switching to the file of files
α⊗↔⊗↔αεfiles[let,jmc]/1p⊗↔αβ⊗↓

αxdefine cal⊗↔⊗; switching to the calendar file
α⊗↔⊗↔αεcal[1,jmc]/8p⊗↔αβ⊗↓

αxdefine ∪⊗↔⊗; switching to the message file
α⊗↔αεmsg.msg[1,jmc]/∞p⊗↔αβ⊗↓

αxdefine jnk⊗↔⊗; switching to the junk mail file
α⊗↔αεmsg.msg[jnk,jmc]/∞p⊗↔αβ⊗↓

αxdefine $⊗↔⊗; putting in an equation number. execute macro after typing symbol
αi α⊗Bαb  αi({eq αs αdβ}β)αβ⊗↓

αXDEFINE TASK⊗↔⊗; puts attach buffer in TASKS file
αβεtasks[1,jmc]/2p/∞l⊗↔αβeβ⊗↔αhαβ⊗↓

αxdefine pho⊗↔⊗; switching to the phon file
α⊗↔αεphon[1,jmc]/1p⊗↔αβ⊗↓

αxdefine adr⊗↔⊗; putting my address in file
⊗↔Professor John McCarthy⊗↔Computer Science Department
⊗↔Stanford University⊗↔Stanford California 94305⊗↔αβ⊗↓

αxdefine s81⊗↔⊗; starting a file
α⊗↔αs⊗=αi[s81,jmc]α⊗↔αxpo/c⊗↔αβ⊗↓

αxdefine w83⊗↔⊗; starting a file
α⊗↔αs⊗=αi[w83,jmc]α⊗↔αxpo/c⊗↔αhαcαhαe⊗↔αβ⊗↔αβ⊗↓

αxdefine ekl⊗↔⊗; starting up an ekl
αxsl dsk:ekl.dmp[1,3]⊗↔αxlfile⊗↔αβ⊗↓

αxdefine lisp⊗↔⊗; starting up a lisp
αxsl (lisp)⊗↔αxlpend⊗↔αβ⊗↓

αXDEFINE L⊗↔⊗; Run lisp functions.  Needs lines ;bfun ;efun ;end.
⊗↔αβlαβf;end⊗↔⊗↔αβ9αβ9αβ9αβdαβlαβf;bfun⊗↔αβf;efunα=αβf;end⊗↔αβjαβ⊗↓